home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / gnu / a2_0bEmacs_bin.lha / Emacs-19.25 / lisp / startup.elc < prev    next >
Text File  |  1994-11-02  |  10KB  |  153 lines
  1.  
  2. (setq top-level (quote (normal-top-level)))
  3.  
  4. (defvar command-line-processed nil "\
  5. t once command line has been processed")
  6.  
  7. (defconst inhibit-startup-message nil "\
  8. *Non-nil inhibits the initial startup message.
  9. This is for use in your personal init file, once you are familiar
  10. with the contents of the startup message.")
  11.  
  12. (defconst inhibit-startup-echo-area-message nil "\
  13. *Non-nil inhibits the initial startup echo area message.
  14. Inhibition takes effect only if your `.emacs' file contains
  15. a line of the form
  16.  (setq inhibit-startup-echo-area-message \"YOUR-USER-NAME\")
  17. Thus, someone else using a copy of your `.emacs' file will see
  18. the startup message unless he personally acts to inhibit it.")
  19.  
  20. (defconst inhibit-default-init nil "\
  21. *Non-nil inhibits loading the `default' library.")
  22.  
  23. (defconst command-switch-alist nil "\
  24. Alist of command-line switches.
  25. Elements look like (SWITCH-STRING . HANDLER-FUNCTION).
  26. HANDLER-FUNCTION receives switch name as sole arg;
  27. remaining command-line args are in the variable `command-line-args-left'.")
  28.  
  29. (defvar command-line-functions nil "\
  30. List of functions to process unrecognized command-line arguments.
  31. Each function should access the dynamically bound variables
  32. `argi' (the current argument) and `command-line-args-left' (the remaining
  33. arguments).  The function should return non-nil only if it recognizes and
  34. processes `argi'.  If it does so, it may consume successive arguments by
  35. altering `command-line-args-left' to remove them.")
  36.  
  37. (defvar command-line-default-directory nil "\
  38. Default directory to use for command line arguments.
  39. This is normally copied from `default-directory' when Emacs starts.")
  40.  
  41. (defvar before-init-hook nil "\
  42. Functions to call after handling urgent options but before init files.
  43. The frame system uses this to open frames to display messages while
  44. Emacs loads the user's initialization file.")
  45.  
  46. (defvar after-init-hook nil "\
  47. Functions to call after loading the init file (`~/.emacs').
  48. The call is not protected by a condition-case, so you can set `debug-on-error'
  49. in `.emacs', and put all the actual code on `after-init-hook'.")
  50.  
  51. (defvar term-setup-hook nil "\
  52. Functions to be called after loading terminal-specific Lisp code.
  53. See `run-hooks'.  This variable exists for users to set,
  54. so as to override the definitions made by the terminal-specific file.
  55. Emacs never sets this variable itself.")
  56.  
  57. (defvar keyboard-type nil "\
  58. The brand of keyboard you are using.
  59. This variable is used to define
  60. the proper function and keypad keys for use under X.  It is used in a
  61. fashion analogous to the environment value TERM.")
  62.  
  63. (defvar window-setup-hook nil "\
  64. Normal hook run to initialize window system display.
  65. Emacs runs this hook after processing the command line arguments and loading
  66. the user's init file.")
  67.  
  68. (defconst initial-major-mode (quote lisp-interaction-mode) "\
  69. Major mode command symbol to use for the initial *scratch* buffer.")
  70.  
  71. (defvar init-file-user nil "\
  72. Identity of user whose `.emacs' file is or was read.
  73. The value is nil if no init file is being used; otherwise, it may be either
  74. the null string, meaning that the init file was taken from the user that
  75. originally logged in, or it may be a string containing a user's name.
  76.  
  77. In either of the latter cases, `(concat \"~\" init-file-user \"/\")'
  78. evaluates to the name of the directory where the `.emacs' file was
  79. looked for.")
  80.  
  81. (defvar site-run-file "site-start" "\
  82. File containing site-wide run-time initializations.
  83. This file is loaded at run-time before `~/.emacs'.  It contains inits
  84. that need to be in place for the entire site, but which, due to their
  85. higher incidence of change, don't make sense to load into emacs'
  86. dumped image.  Thus, the run-time load order is: 1. file described in
  87. this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
  88.  
  89. (defvar init-file-debug nil)
  90.  
  91. (defvar init-file-had-error nil)
  92.  
  93. (defun normal-top-level nil (byte-code "ƒ
  94. ÊË!‚JÁ‰ˆ
  95. Ì=?…:ÍÎ! ;…9ÏÐÑ !ÒP!ÐÑ !ÒP!\"†9ÓÔ P\"‰)ˆÕ !‰ˆÇ֎נ))‡" [command-line-processed t system-type pwd default-directory process-environment menubar-bindings-done nil term-setup-hook window-setup-hook message "Back to top level." vax-vms getenv "PWD" equal file-attributes file-name-as-directory "." delete "PWD=" abbreviate-file-name ((byte-code "Ä!‰ˆÅÆ!ˆ    …ÅÁ!ˆÇÈ!…È ˆÇÉ!…#É ˆ
  96. …+ÅÂ!ˆ †2Ê ‡" [default-directory term-setup-hook window-setup-hook menubar-bindings-done abbreviate-file-name run-hooks emacs-startup-hook fboundp frame-notice-user-settings font-menu-add-default precompute-menubar-bindings] 10)) command-line] 11))
  97.  
  98. (defun precompute-menubar-bindings nil (byte-code "Ä=…?Å
  99. Æ\"    …>    @:…5    @@9…5Ç    @A!;…5È    @AA!…5Éà   @AA\"ˆ    A‰ˆ‚ )‡" [window-system submap global-map nil x lookup-key [menu-bar] car-safe keymapp x-popup-menu] 7))
  100.  
  101. (defun command-line nil (byte-code "    ‰ˆÚÛ!
  102. Ã=†GÜ
  103. Ý\"†Ü
  104. Þ\"ƒ\"ʼn‚GÜ
  105. ß\"†-Ü
  106. à\"ƒ6É‚GÜ
  107. á\"†AÜ
  108. â\"…Gã‰)ˆ…Q?…`äå!æQÃÅ#ˆÃ A
  109.     ƒrÂt砉 ˆ …ŠÜ è \"…Šé‰ ˆ    ?…“
  110. … 
  111. @êë\"†¨êì\"ƒ·Ã 
  112. A‰
  113. ‚êí\"†Äêî\"ƒÚ
  114. A
  115. 
  116. @ 
  117. A‰
  118. ‚êï\"ƒîÃ
  119. A‰
  120. ‚êð\"ƒÅ
  121. A‰
  122. ‚ʼn    )ˆ‚‹ˆñ 
  123. \"*ˆòó!…ó ˆòô!…%ô ˆõö!ˆ…5äÅÅ#ˆÃ‰ˆÃÃÅ=ƒH÷‚Jøƒcù!‚gúûüˆ=†xʼn*ˆ…„‰+ˆõý!ˆþÿ!…¢Šÿqˆ@=…¡ù!)ˆ…ö?…ö?…öځA!Ã…ÍäPÅÅ#?…õBC\"‰ƒíDO‰‚ñɈ‚¾*ˆE A!ˆ…    FÅ!‡" [command-line-default-directory default-directory vc nil version-control t window-system noninteractive term-file-prefix done args command-line-args init-file-user argi site-run-file init-file-debug inhibit-startup-message debug-on-error-from-init-file debug-on-error-should-be-set debug-on-error-initial debug-on-error inner major-mode initial-major-mode term hyphend getenv "VERSION_CONTROL" string= "t" "numbered" "nil" "existing" "never" "simple" never load symbol-name "-win" user-login-name user-real-login-name "" string-equal "-q" "-no-init-file" "-u" "-user" "-no-site-file" "-debug-init" setcdr fboundp face-initialize frame-initialize run-hooks before-init-hook startup (lambda nil (byte-code "…?
  124. Ç=ƒÈÉQ‚)
  125. Ê=ƒË‚)
  126. Ì=ƒ%͂)ÈÎQ‰ˆÏ    ÃÃÃ$ˆ †?ÆÏÐÃÃ#)‡" [init-file-user user-init-file system-type t inhibit-default-init inhibit-startup-message nil ms-dos "~" "/_emacs" vax-vms "sys$login:.emacs" amigados "s:.emacs" "/.emacs" load "default"] 5)) funcall error (byte-code "Ã!ˆÂ‰‡" [inner init-file-had-error nil funcall] 3) ((error (byte-code "ÃÄ@ÅNAƒƂÇÈÉAÊ#$ˆÂ‰‡" [error init-file-had-error t message "Error in init file: %s%s%s" error-message ": " "" mapconcat prin1-to-string ", "] 8))) after-init-hook get-buffer "*scratch*" fundamental-mode "TERM" string-match "[-_][^-_]+$" 0 command-line-1 kill-emacs] 36))
  127.  
  128. (defun command-line-1 (command-line-args-left) (byte-code "†2× †2    †2
  129. …ØÙ!ÇÚÛÜ !ˆ)†2ÝÞß!à=ƒ.á‚1âã!!ˆ ?ƒÖ?…M?…Mäå æ\"…M× ?…Ó…XçÆ!ˆÇ‰ˆèé!…f須…oçÈ!ˆÇ‰ˆê ˆÊ‰    ˆëŽìí î\"ˆÞï!ð=…ºÞñ!ò=…ºÞó!ô=…ºÞõ!ö=…ºÞ÷!ø=…ºÞù!ú=…ºÞû!ü=ƒÂýc‚Æâþ!cˆÿÇ!ˆ@A!)‚{ BǁB …[ @Ç A‰ˆC\"‰ƒDA\"‚VEF\"†2EG\"†2EH\"ƒMI @!‰ˆ A‰ˆD!‚VEJ\"†bEK\"ƒ‘ @LM!!…M!‰ˆNÇÊ#)ˆ A‰‚VEO\"ƒ¹ @;†ªPQ!ˆR @!ˆ A‰‚VES\"ƒÍTÊ!‚VUV\"ƒåW!‰‚VÇ…üD@!‰?…    A‰ˆ‚ìˆ?…UT‰ˆXUƒ2YM \"!‰‚>ZM \"!ˆ[!†N\\!ˆB‰**ˆ‚爁]V…z^!†z_X!ˆ` ,‡" [noninteractive init-file-had-error inhibit-startup-echo-area-message buffer command-line-args-left inhibit-startup-message term-setup-hook nil window-setup-hook menubar-bindings-done t dir command-line-default-directory file-count first-file-buffer line argi tem command-switch-alist file hooks command-line-functions did-hook input-pending-p get-buffer-create " *temp*" (byte-code "ŠqˆÅ    !ˆÆÇÈÉÊË
  130. Ì\"ƒÍ ‚
  131. !!ÎRÃÄ#)‡" [buffer user-init-file init-file-user nil t insert-file-contents re-search-forward "([     
  132. ]*setq[     
  133. ]+" "inhibit-startup-echo-area-message[     
  134. ]+" regexp-quote prin1-to-string string= "" user-login-name "[     
  135. ]*)"] 10) ((error (byte-code "À‡" [nil] 1))) kill-buffer message key-binding "" describe-project "For information about the GNU Project and its goals, type C-h C-p." substitute-command-keys "For information about the GNU Project and its goals, type \\[describe-project]." string= buffer-name "*scratch*" run-hooks fboundp frame-notice-user-settings precompute-menubar-bindings ((byte-code "ŠÁÂ!qˆÃ ˆÄÀ!)‡" [nil get-buffer "*scratch*" erase-buffer set-buffer-modified-p] 4)) insert emacs-version "
  136. Copyright (C) 1994 Free Software Foundation, Inc.
  137.  
  138. " "" help-command "u" advertised-undo "" save-buffers-kill-emacs "" describe-copying "" describe-distribution "" describe-no-warranty "t" help-with-tutorial "Type C-h for help; C-x u to undo changes.  (`C-' means use CTRL key.)
  139. To kill the Emacs job, type C-x C-c.
  140. Type C-h t for a tutorial on using Emacs.
  141. Type C-h i to enter Info, which you can use to read GNU documentation.
  142.  
  143. GNU Emacs comes with ABSOLUTELY NO WARRANTY; type C-h C-w for full details.
  144. You may give out copies of Emacs; type C-h C-c to see the conditions.
  145. Type C-h C-d for information on getting the latest version." "Type \\[help-command] for help; \\[advertised-undo] to undo changes.  (`C-' means use CTRL key.)
  146. To kill the Emacs job, type \\[save-buffers-kill-emacs].
  147. Type \\[help-with-tutorial] for a tutorial on using Emacs.
  148. Type \\[info] to enter Info, which you can use to read GNU documentation.
  149.  
  150. GNU Emacs comes with ABSOLUTELY NO WARRANTY; type \\[describe-no-warranty] for full details.
  151. You may give out copies of Emacs; type \\[describe-copying] to see the conditions.
  152. Type \\[describe-distribution] for information on getting the latest version." set-buffer-modified-p sit-for 120 0 assoc funcall string-equal "-f" "-funcall" "-e" intern "-l" "-load" file-exists-p expand-file-name load "-insert" error "filename omitted from `-insert' option" insert-file-contents "-kill" kill-emacs string-match "^\\+[0-9]+\\'" string-to-int 1 find-file find-file-other-window zerop goto-line 2 get-buffer-window other-window buffer-menu] 57))
  153.